home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / WASTE 1.3a1.sit / WASTE 1.3a1 Distribution / WASTE Pascal Interfaces / LongCoords.p next >
Encoding:
Text File  |  1996-08-23  |  749 b   |  48 lines  |  [TEXT/CWIE]
  1. UNIT LongCoords;
  2.  
  3. { Pascal interface to the WASTE text engine: }
  4. { Long Coordinates }
  5. { version 1.3a1 }
  6.  
  7. { Copyright ｩ 1993-1996 Marco Piovanelli }
  8. { All Rights Reserved }
  9.  
  10. INTERFACE
  11.     USES
  12.         Types;
  13.  
  14.     TYPE
  15.  
  16. { long coordinates types }
  17.  
  18.         LongPt = RECORD
  19.                 CASE INTEGER OF
  20.                     0: (
  21.                             v: LONGINT;
  22.                             h: LONGINT;
  23.                     );
  24.                     1: (
  25. {$IFC NOT UNDEFINED THINK_PASCAL}
  26.                             vh: ARRAY[VHSelect] OF LONGINT;
  27. {$ELSEC}
  28.                             vh: ARRAY[0..1] OF LONGINT;
  29. {$ENDC}
  30.                     );
  31.             END;  { LongPt }
  32.  
  33.         LongRect = RECORD
  34.                 CASE INTEGER OF
  35.                     0: (
  36.                             top: LONGINT;
  37.                             left: LONGINT;
  38.                             bottom: LONGINT;
  39.                             right: LONGINT;
  40.                     );
  41.                     1: (
  42.                             topLeft: LongPt;
  43.                             botRight: LongPt;
  44.                     );
  45.             END;  { LongRect }
  46.  
  47. IMPLEMENTATION
  48. END.